home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / magazine entry (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  3.6 KB  |  127 lines
  1. 1 PRINT"[147]"SPC(9)"MAGAZINE ENTRY PROGRAM"
  2. 2 PRINTSPC(17)"BY":PRINTSPC(13)"MARK ROBIN"
  3. 6 PRINT"POKING-->";
  4. 7 P=49152 :REM $C000
  5. 10 READA$:IFA$="END"THEN80
  6. 20 L=ASC(MID$(A$,2,1))
  7. 30 H=ASC(MID$(A$,1,1))
  8. 40 L=L-48:IFL>9THENL=L-7
  9. 50 H=H-48:IFH>9THENH=H-7
  10. 60 PRINT""P;
  11. 70 B=H*16+L:POKEP,B:T=T+B:P=P+1:GOTO10
  12. 80 IFT<>103233THENPRINT:PRINT"MISTAKE IN DATA--> CHECK DATA STATEMENTS":END
  13. 90 PRINT"DONE":END
  14. 1000 DATA4C,23,C0,00,00,00,00,00
  15. 1001 DATA00,00,00,00,00,00,00,0D
  16. 1002 DATA00,58,C1,5E,C1,66,C1,76
  17. 1003 DATAC1,83,C1,8F,C1,EA,EA,EA
  18. 1004 DATA4C,83,C0,A2,05,BD,1D,C0
  19. 1005 DATA95,73,CA,10,F8,60,A0,02
  20. 1006 DATAB9,00,02,D9,3C,C1,D0,0B
  21. 1007 DATA88,10,F5,A9,01,8D,10,C0
  22. 1008 DATA4C,1F,C1,60,A0,03,B9,00
  23. 1009 DATA02,D9,38,C1,D0,E0,88,10
  24. 1010 DATAF5,A9,00,8D,10,C0,4C,1F
  25. 1011 DATAC1,60,A0,03,B9,00,02,D9
  26. 1012 DATA34,C1,D0,E0,88,10,F5,A0
  27. 1013 DATA05,B9,A2,E3,99,73,00,88
  28. 1014 DATA10,F7,A9,00,8D,18,D4,4C
  29. 1015 DATA1F,C1,E6,7A,D0,02,E6,7B
  30. 1016 DATA4C,79,00,A5,9D,F0,F3,A5
  31. 1017 DATA7A,C9,FF,D0,ED,A5,7B,C9
  32. 1018 DATA01,D0,E7,20,5A,C0,AD,00
  33. 1019 DATA02,20,A3,C0,90,DC,A0,00
  34. 1020 DATA4C,EA,C1,C9,30,30,06,C9
  35. 1021 DATA3A,10,02,38,60,18,60,C8
  36. 1022 DATAB1,7A,C9,20,D0,03,C8,D0
  37. 1023 DATAF7,B1,7A,60,18,C8,B1,7A
  38. 1024 DATAF0,35,C9,22,F0,F5,6D,05
  39. 1025 DATAC0,8D,05,C0,AD,06,C0,69
  40. 1026 DATA00,8D,06,C0,4C,BD,C0,18
  41. 1027 DATA6D,07,C0,8D,07,C0,90,03
  42. 1028 DATAEE,08,C0,EE,0B,C0,60,18
  43. 1029 DATA6D,0A,C0,8D,0A,C0,90,03
  44. 1030 DATAEE,09,C0,EE,0C,C0,60,0A
  45. 1031 DATAA8,B9,11,C0,85,FB,B9,12
  46. 1032 DATAC0,85,FC,A0,00,A9,12,20
  47. 1033 DATAD2,FF,B1,FB,F0,06,20,D2
  48. 1034 DATAFF,C8,D0,F6,20,54,C3,20
  49. 1035 DATA7E,C3,20,E4,FF,F0,FB,A0
  50. 1036 DATA1B,B9,3F,C1,20,D2,FF,88
  51. 1037 DATA10,F7,68,68,A9,00,8D,00
  52. 1038 DATA02,4C,74,A4,4B,49,4C,4C
  53. 1039 DATA54,45,53,54,41,44,44,91
  54. 1040 DATA91,0D,20,20,20,20,20,20
  55. 1041 DATA20,20,20,20,20,20,20,20
  56. 1042 DATA20,20,20,20,20,20,91,0D
  57. 1043 DATA51,55,4F,54,45,00,4B,45
  58. 1044 DATA59,57,4F,52,44,00,23,20
  59. 1045 DATA4F,46,20,43,48,41,52,41
  60. 1046 DATA43,54,45,52,53,00,55,4E
  61. 1047 DATA49,44,45,4E,54,49,46,49
  62. 1048 DATA45,44,00,4E,4F,20,43,48
  63. 1049 DATA45,43,4B,53,55,4D,00,50
  64. 1050 DATA41,52,45,4E,54,48,45,53
  65. 1051 DATA49,53,00,C8,B1,7A,D0,FB
  66. 1052 DATA84,FD,C0,09,10,03,4C,C7
  67. 1053 DATAC1,88,88,88,88,88,B1,7A
  68. 1054 DATAC9,27,D0,13,A9,00,91,7A
  69. 1055 DATAC8,A2,00,B1,7A,9D,3C,03
  70. 1056 DATAC8,E8,E0,04,D0,F5,60,4C
  71. 1057 DATAF2,C2,A0,00,B9,00,02,99
  72. 1058 DATA40,03,F0,F2,C8,D0,F5,A0
  73. 1059 DATA00,B9,40,03,F0,E8,99,00
  74. 1060 DATA02,C8,D0,F5,20,D7,C1,4C
  75. 1061 DATA56,C2,A0,0B,A9,00,99,03
  76. 1062 DATAC0,8D,3C,03,88,10,F7,A9
  77. 1063 DATA80,85,02,20,1B,C3,A0,00
  78. 1064 DATA20,9B,C1,20,CA,C1,20,31
  79. 1065 DATAC2,E6,7A,E6,7B,20,7C,A5
  80. 1066 DATAA0,00,20,AF,C0,F0,CD,24
  81. 1067 DATA02,F0,06,20,D7,C0,4C,12
  82. 1068 DATAC2,C9,22,D0,06,20,BC,C0
  83. 1069 DATA4C,12,C2,20,E7,C0,4C,12
  84. 1070 DATAC2,A0,00,B9,00,02,20,A3
  85. 1071 DATAC0,C8,90,0A,18,6D,09,C0
  86. 1072 DATA8D,09,C0,4C,33,C2,88,A2
  87. 1073 DATA00,B9,00,02,9D,00,02,F0
  88. 1074 DATA04,E8,C8,D0,F4,60,18,AD
  89. 1075 DATA0B,C0,69,41,8D,0B,C0,38
  90. 1076 DATAAD,0C,C0,E9,19,90,06,8D
  91. 1077 DATA0C,C0,4C,60,C2,AD,0C,C0
  92. 1078 DATA69,41,8D,0C,C0,AD,05,C0
  93. 1079 DATA6D,07,C0,48,AD,06,C0,6D
  94. 1080 DATA08,C0,8D,0E,C0,68,6D,0A
  95. 1081 DATAC0,8D,0D,C0,AD,0E,C0,6D
  96. 1082 DATA09,C0,8D,0E,C0,38,E9,19
  97. 1083 DATA90,06,8D,0E,C0,4C,96,C2
  98. 1084 DATAAD,0E,C0,69,41,8D,0E,C0
  99. 1085 DATAAD,0D,C0,E9,19,90,06,8D
  100. 1086 DATA0D,C0,4C,AB,C2,AD,0D,C0
  101. 1087 DATA69,41,8D,0D,C0,A0,01,AD
  102. 1088 DATA0B,C0,CD,3C,03,D0,20,C8
  103. 1089 DATAAD,0C,C0,CD,3D,03,D0,17
  104. 1090 DATAC8,AD,0D,C0,CD,3E,03,D0
  105. 1091 DATA0E,AD,0E,C0,CD,3F,03,D0
  106. 1092 DATA06,20,64,C3,4C,7A,C0,AD
  107. 1093 DATA10,C0,D0,11,98,48,68,4C
  108. 1094 DATAF7,C0,AD,10,C0,F0,01,60
  109. 1095 DATAA9,04,4C,F7,C0,A4,FD,A9
  110. 1096 DATA27,91,7A,A2,00,C8,BD,0B
  111. 1097 DATAC0,91,7A,C8,E8,E0,04,D0
  112. 1098 DATAF5,A9,00,91,7A,20,64,C3
  113. 1099 DATA4C,7A,C0,A0,00,B9,00,02
  114. 1100 DATAF0,11,C9,28,D0,03,EE,03
  115. 1101 DATAC0,C9,29,D0,03,EE,04,C0
  116. 1102 DATAC8,D0,EA,AD,03,C0,CD,04
  117. 1103 DATAC0,D0,01,60,A9,05,4C,F7
  118. 1104 DATAC0,A9,20,8D,00,D4,8D,01
  119. 1105 DATAD4,A9,09,8D,05,D4,A9,0F
  120. 1106 DATA8D,18,D4,60,20,41,C3,A9
  121. 1107 DATA81,20,77,C3,A9,80,20,77
  122. 1108 DATAC3,4C,71,C3,20,41,C3,A9
  123. 1109 DATA11,20,77,C3,A9,10,20,77
  124. 1110 DATAC3,A9,00,8D,04,D4,60,8D
  125. 1111 DATA04,D4,A2,70,A0,00,88,D0
  126. 1112 DATAFD,CA,D0,FA,60,END
  127.